# Nitrogen cycle
cycle <- list(f=nut.cycle, z=nut.cycle.z, g=nut.cycle.g)
param <- list(plab="uh",pval=c(-0.5,-0.8))
t.X <- simd(cycle,"chp13/Ncycle-inp.csv",param)
# river no algae no flow and low flow,
river <- list(f=nut.river); param <- list(plab="Q",pval=c(0,0.060,0.600))
t.X <- sim(river,file="chp14/river-no-algae-inp.csv", param, pdfout=TRUE)
Run the code above in your browser using DataLab